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-TITLE INIADP750 = ADAPTER INITIALIZATION FOR VAX 11/750 


-IDENT ‘Vv04-002' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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A 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; Abstract: This module contains initialization routines that are loaded 
3 during system initialization (rather than Linked into the system). 


; Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 
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: Facility: System bootstrapping and initialization 
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; Author: Trudy C. Matthews Creation date: 22-Jan-1981 
; Modification history: 
v04-002 TCM0013 udy C. Matthews 10-Sep-1984 
o Add $BQODEF booker rom TCMOO12. 
65 v04-001 TCM0012 Trudy C. Matthews 07-Sep-1984 
38 6 For venus processor: turn on cache before calibrating 
0 67 ; TIMEDWALT cells (routine EXESINI i IT) store the TIMEDWAIT 
b) os ; values calcul ated after cache is enabled in the boot driver's 
0 8 TINEDWA IT cells. This is because the boot driver initially 
0 0 has to run with cache off, but after booting will run with 
4 cache on. 
7 v03-024 TCMO011 rudy C. Matthews 31-Jul-1984 
74 Change venus's CRD nterrupt vector back to th54 in the SCB, 
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r 
11-SEP- SYSLOA.SRCJINIADP.MAR; 3 
and its SBIA Fail vector to “x64. 


v03-023 wMc0001 ¥e ne Cardoza 30-Jul-1984 
Add H memory to 780 List. 


v03-022 TCMO010 Trudy C. Matthews 25-Jul-1984 
Fix a bug in INISUBSPACE for the 11/790 that caused second 
and oe ge ynieue acepter spaces to be mapped incorrectly. 
Fix eyes n INI$SCB i3f the 11/ . Fix genet t tenet 
assembly flags in INISCONSOLE for the 11/790. 


v03-021 KDM0100 Kathleen D. Morse 01-May-1984 
Correct address of memory CSRs to be past the 8 missing 
Qbus adapter pages that do not exist. 


v03-020 KDM0099 Kathleen D. Morse 27-Apr-1984 
On a MicroVAX I, if the sysgen parameter TIMEDWAIT is set 
to request no time<pronpt ng. then use the Last recorded 
syytee time instead. This is found in EXE$GQ_TODCBASE 
which can be updated with a SET TIME command. 


VO3-019 RLRSCORPIO Robert L. Repeagert 16-Mar-1984 
Begin additions (to INISIOMAP) for Scorpio support. 
Also move ADAPDESC to SYSMAR.MAR, changing it to remove 
the ADAP_GENERAL array. 


V03-018 RLRINIADP Robert Rappaport 28-F eb-1984 
Add refinements to previous update that introduces 
Lonqword array CONFREG. Mainly add logic to allow for 
independently assembled invocations of ADAPDESC macro 
to be Linked into this code. This provides possible 
support of BI as a public bus, with user defined nodes. 


v03-017 KPLO100 Peter Lieberwirth 30-Jan-1984 
Implement first step towards a longword-array CONFREG to 
replace current byte array CONFREG. INIADP will construct 
two confregs, CONFREG and CONFREGL. CONFREGL will be 
a longword array. The high byte will be a VMS-bus 
designation, and the low word will contain the 16-bit 
device type. The BI introduces 16 bit device types. 


When all references to CONFREG have been modified to touch 
CONFREGL, INIADP will be modified again to stop creating 
the byte array. 
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While here, map 9 pages of CI register space, up from 8. 


v03-016 KPLOOO01 Peter Lieberwirth 17-Jan-1984 
Fix bug in VO3-015 that caused a failure to boot on 750s. 
Specifically, add NDTS_MEM1664NI to ADAPDESC macro. 


v03-015 TCMO009 Srudy C. Matthews 12-Dec-1983 
Add support for booting from VENUS console device to 
INISCONSOLE. When mapping 1/0 space on VENUS, use the 
Ap to determine if any adaptors are present on the 
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v03-014 KDM0081 athleen D. Morse 13-Sep-1983 
Create version tor "I cro-VAX I. 
V03-013 DWT0126 David W. Thiel anne 1963 
Modify EXESINIT_ TODR to set Jaternet time without 


modifying the contents of the system disk. 


v03-012 KDM0062 Kathleen D. forse 18-Jul-1983 
Add loadable, cpu-dependent routine for initializing 
the time-wait loop data cells, EXESINI_TIMWAIT. 


vO3-011 KDM0057 Kathleen D. Morse 15-Jul-1983 
Added loadable, cpu-de qosent rout ine for initializing 
the system time, EXESINIT_TODR. 


v03-010 KTA3071 erbey T. Altmann 12-Jul-1983 
Include sangriils console init code. 


v03-009 TCMO008 rudy C. Matthews 10-Jan-1983 
chonge ¢ PSECT of 149 0 data that must stick around after 
P is deleted. Build erreye ABUS_VA, ABUS_TYPE, and 
ABUS_INDEX that describe the 11/790 ABUS configuration. 


V03-008 MSHO002 Maryann Hinden 08-Dec-1982 
Add powerfail support for DW750. 
V03-007 ROW0142 Ralph 0. Weber 24-NO0V-1982 
Change e UBA intorrunt services routines prototype so 
UBAERRADR is correctly computed as an offset from OBAINTBASE.. 
v03-006 TCM0007 ay ¢ Matthews 10-Nov-1982 
had 11/790specific aiktol leet tes of SCcB. 
v03-005 TCM 8-Nov-1982 


0006 
Initialize field rapey, ° Aveetor ewith the address of 
each adapter's first SCB vector. 


v03-004 Erase 8 Kerbey T. Altmann 30-0c t-1982 
Move from INILOA facitit - renene, from INITADP 
put in conditional assem ly, rewrite some routines. 


v03-003 MSH0001 rye nn Hinden 24-Sep-1982 
Change EXESDW780" IN to EXESUBAERR_ INT. 

v03-002 TCMO00S Trudy f Matthews 10-Aug-1982 
Added support for 11/7 6 processor. 

v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 


Added SDCDEF. 
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; MACRO LIBRARY CALLS 


SPR7SODEF 


SPTEDEF 


$V 
SVECDEF 


10:28:48 


Define 


; Define 


Define 
Define 
Define 
Define 
Define 
Define 


EP x 


AX/VMS Macro v04-00 Page 4 It 
SYSLOA. SRCJINIADP.. MAR;3 ef ve 


ADP offsets. 
BIIC offsets. 
boot na offsets. 
boot Coynes 
BUA Register offsets. 
 ~ a 
adapter types 
DDB offsets 
ae etevesyre type codes. 
197950 170 dispatcher offsets. 
/750 1/0 space. 


bu? 50 IPEC registers. 
machine check masks. 
nexus device types. 
IPR numbers. 


11/750 specific IPR numbers. 


Page Table Entry bits 

Restart Parameter Block fields. 
UBA re =opee offsets. 

UCB offse 

virtual + aE fields. 

vec offsets. 
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¢ -SBTTL Macros to describe nexus configurations 


The macros FLOAT_NEXUS and FIXED_NEXUS add one or more entries to a 
nexus descriptor table. Each entry is of the form: 


poem ee pe mee neem eee ee wen eee ecw enw th 


' PFN of nexus I/0 space } 


ee ne ee + 
' bus + O } type i 
foe reese pore treme oammonenreaaweae $ 
type = 0 => vloes ing nexus 
type = non-zero => fixed nexus; type = fixed adapter type 
bus = 0, if SBI; %x80 if BI (this is a VMS-only designation) 


device_type: SBI adapters have 8-bit device type codes. These 
device types are simple integers. 


BI adapters have 16-bit device type codes, that are 
subject to the following interpretation: 


= the MSB of the device-type field will be 0 for DEC 
devices and * for non-DEC devices, 


- DEC memory devices will have Os in the high-order 
byte of the device type, 

= non=DEC supplied memory devices will have a 1 in the 
MSB of the high-order byte, and the rest of the high 
order byte will contain Os. 


- The “‘all Os** and “‘all 1s** device-type codes are 
reserved for DEC. 


If SBI type codes were siealy expanded to a word for purposes of the routines 
in this module, there would be possible conflicts between SBI devices and 
Bl memory adapters supplied by DEC. Voila: the bus type. 
mecre FLOAT_NEXUS. 
PHYSADR == 144} address of 1 or more contiguous floating nexus 
slots 
NUMNEX == number of contiguous floating nexuses, default = 1 
PERNEX == amount of address space per nexus (does not have to be 
specified if NUMNEX = 1) 


»-MACRO FLOAT_NEXUS PHY SADR ,NUMNE X=1 , PERNEX=0 
A_= PHYSADR 
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P 

~REPEAT NUMNEX ; For each nexus... 

-LONG <PA/*X200> ; Store PFN. 

- LONG ; Store floating nexus type. 

PA = PA + PERNEX ; Increment to physical address of next nexus. 


END 
-ENDM = =FLOAT_NEXUS 
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; Macro FIXED_NEXUS. 
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_* 


: INPUTS: 
; person = physical address of 1 or more cont tqueus fixed nexus slots 


19 o 
15 3 PERNEX = amount 9 address space per nexu 
1 3 NEXUSTYPES = a List of fixed nexus types, “enc looed in <> 
Ht ; ~MACRO FIXED_NEXUS PHYSADR ,PERNEX=0 ,NEXUSTYPES 
1 PA = PHYSADR 
Ht . IRP att NEXUSTYPES : For each fixed nexus type... 
1 “LONG <PA/*x206> ; Store PFN. 
0 -LONG TYPECODE ; Store fixed nexus type. 
1 ¢ ¥A,. + PERNEX 3; Increment to address of next nexus. 
09 -ENDM = FILXED_NEXUS 
3 3 
009 § ; Macro NEXUSDESC_TABLE = declare the beginning of a NEXUS descriptor table 
4 8 : Ist byte in ee cat offset “7 from Label) contains | Length of 
00 $ adapter type ¢o cod . } a in CSR's on this bus. (Note for a1 Like 
00 os busses, t -J_ The next longword (at ot feet -4) in the 
000 2 table Bards Ry okt Software defined bus type byte defined in the 
O60 ¢ 3 high order byte of the Lon word. Note for SBI Like busses, this 
0000 7 3 value is 0, for the BI it is “x80. 
00 Bs 
$8 gi ; Define parameters that may be specified or used in macro invocation. 
00000000 000 8 BI_LIKE =0 : BI Like bus. 
00000001 4 i; SBI_LIKE = 1 3; SBI Like bus. 
00000001 33 4} SBI_CSR_LEN = 1 3 Longer ¢ of PS a+ code field in adapter CSR's 
00000002 BS ‘§ BI_CSR_LEN = 2 : Lenge® of type sole field in adapter CSR's 
0 45 ‘ ‘ 
00000000 099 r4! SBI_BUS_CODE = 0 : Software defined bus code for SBI Like busses. 
80000000 09 r B1_Bus_CodE = *x80000000 ; Software defined bus code for the Bl. 
rk: -MACRO NEXUSDESC yaaie LABEL ,BUS_TYPE=SBI_LIKE 
0 50 IF EQ,BUS_ TYPE- ~SBI_LIKE 
; 51 ~ BYTE SBI_CSR_LEN 
26 _ [LONG SBI “BUS_ CODE 
34 : IF EQ,BUS -TYPE-BI_ LIKE 
5 YTE ~ ‘Bl _CSR_LEN 
2$ se “LONG = BI ~BUS_ CODE 
38 ; -ERROR ; UNRECOGNIZED BUS TYPE, NEXUSDESC_TABLE; 
5 ~ENDC 
9 -ENDC 
$3 LABEL: 
o -ENDM NEXUSDESC_TABLE 
FFFFFFFB 2 CSR_LEN_OFFSET = -5 ; Offset before nexus descriptor of 
§ : byte containing Length of adapter 
0 6 3 type field in adapter CSR. 


K 
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FFFFFFFC $8 rt: BUS_CODE_OFFSET = =4 
af 
0 7? 


72 

rs ; Macro END_NEXUSDESC. 

75 .MACRO END_NEXUSDESC 
8 6 «LONG 

7 -ENDM END_NEXUSDESC 


WrSEp=1986 6:2 
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Offset before nexus descriptor table 
of longword containing software 
defined bus type to be or'ed with 
adapter type to produce NDT$_ value. 


PFN=0 => end of nexus descriptors. 
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Adapter-specific data structures 11-SEP-19 
79 , -SBTTL Adapter-specific data structures 
; Put a symbol for arrays built by macros in the correct psects. 


[eeeeererereeerere ADAPTERS array Rkeeeekeeeeee 


0000 4 -PSECT S$SSINITSDATA 
5 ADAPTERS: ; Build adapter type code arrays here. 
0000 ; -PSECT SS$SINITSDATA1 ; User contributions in this .PSECT. 
8 ; End of ADAPTERS array. 
p 8 peeeereerereeerere End of ADAPTERS array ttetereenrenee 
39 ;eeeeeeerereeeeeee NUM PAGES array ttttennenenne 
0000 88 3 a races SSSINITSDATA2 auttéd “runt ; 
‘ : ; Bu number of pages t a ° 
00000009 394 “PSECT SSSINITSDATA3 : User contributions in this -PSECT. 
0900 $6 peteeeeeerereeeeeee End of NUM_PAGESarray tttteereneeee 
00 97 ;eeeeeeereerereeee INIT ROUTINES array *teteeeeenene 
00000000 398 .PSECT $SSINITSDATAS ¢ 
0000 99 INIT_ROUTINES: ; Build “‘address of init routine’’ array. 
00000000 400 -PSECT SS$SINITSDATAS ; User contributions in this .PSECT. 
000 401 jeeeeeeenerererere End of INIT_ROUTINES array **teeeereeeee 
83h 
000 404 ; To add a new adapter type: 
B38 606 : 1) Add a new ADAPDESC macro invocation to the end of this List. 
00000000 407 ° .PSECT $SSINITSDATA,LONG 
38 18 
0000 410 : Default interupt vectors for UNIBUS system devices 
0000 411; (This array is indexed by the RPB field RPBSB_DEVTYP, if the RPB field 
0000 tig ; RPBSW_ROUBVEC is zero. If RPBS$W_ROUBVEC is not zero, then RPE.’ ROUBVEC 
4 413 ; is used and this erray ts not referenced at all. RPBSW_ROUBVE< is set up 
00 414 ; by PQDRIVER. RPBSL_BOOTRO is set by VMB to contain the device name in 
44 415 ; ASCII, not the vector number and device type, as it does on full 
38 218 3; architecture VAX machines. 
00 418 BOOTVECTOR: 
0088 000 41 -WORD “X88 ; RKO6/7 Interrupt vector 
0070 h3 ? » -WORD “x70 : RLOI/2 Interrupt vector 
8 4 4 4 BUS_CSR_LEN: ; Static byte containing the Length (in bytes) 
00 4 4&4 -BYTE 0 : of the adapter type field in the CSR's of 
0 424 ; the bus currently being configured. The 
0 425 ; proper value for the bus of interest is 
4 § : copied here, from the current nexus 
4 ; descriptor table, when we enter subroutine 
2 8 ; CONFIG_IOSPACE. 
0 3 430 SW_BUS_CODE: ; Static longword containing the software 
00000000 5 431 -LONG 0 : defined bus type, of the bus currently being 
9 4 § ; configured, in the high order byte. The 
9 & ; proper value for the bus of current interest 
9 434 ; 1s copied here, from the nexus descriptor 
9 435 ; table, when we enter subroutine 


— 
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; CONFIG_IOSPACE. 
8 DIRECT_VEC_NODE_CNT: Static Longword that counts the number of 
direct vectoring adpater nodes that we have 
-LONG 0 3 fun across so far. 


SSVMSDEFINED = 1 : Define symbol that means VMS system software. 
UMUBAVEC = 128 3; ALLOW FO UNIBUS VECTORS 


ADAPDESC 
ADPTYPES 


00000000 


30000080 


ze 


; Memory. ** MUST BE 1ST IN DESCRIPTOR LIST ** 
1664NI ,NDT$ oMEMANI, NDTS_MEM41,NDTS$S_MEMIONI, - 


FM 
1 

chenedh NDTS_MEM64EIL,NDTS$_MEM64NIU,NDTS_MEMO4EIU, = 
RERBSBiuL, NDT$_MEM256EIL,NDTS_MEMZ56NIU,NDTS_MEM256EIU, - 
RMEM> 

=1 


222z2 iu 
ommmna 

YOBEBSESEETZ 
bo 


Nbtice 
NUMPKG 


ADAPDESC - ; MASSbus. 
spt Hs bo babee MB, - 


AGE 
INITRTNZINISMBADP 


OOOooooocoo 


ADAPDESC - 
ADPTYPES=<NDTS_ ubo” Nove: _UB1,NDT$_UB2,NDT$_UB3,NDT$_BUA>, - 


MPAGES= 
INI TRTN=INI SUBSPACE 


ADAPDESC - ti-port mem 
ADPTYPES=<NDTS_ mbmon NOTS “MPM1, NDTS: YmPM2, NDTS_MPM3>, = 
INT TRINSINISMPMADP 

ADAPDESC - DR32. 


ADPTYPES=NDTS _pri2- 
NUMPAGES 
INITRIN=INISDRADP 


ADAPDESC - C1780 
nba | NDTS ci * 


UMPAGE S= 
INI TRINSINESCIADP 


ADAPDESC - KD211 Processor 


ADPTYPES=NDTS._ Koiit, 
INI TRIN=INISKD211 
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maa capaanwneant tte data structures 18: ae ts 7 9: $8: 9} SYSLOA.S REN INIADP.MAR;3 aad (4) 
D 4 3 
p aR ; TABLES OF ADAPTER=DEPENDENT INFORMATION 
p 31 : THE TABLE OFFSETS ARE: 
a38 5 SDEFINI ADPTAB 
495 ADPTAB_ LDBUNITS: .BLKB ; # UNITS TO SET IN IDB 
1 496 ADPTAB-ADPLEN: .BLKW 1 : LENGTH OF ADP 
0 ; 49 ADPTAB_ATYPE: LKB : ADP TYPE 
4 139 $DEFEND ADPTAB 
mi 
3 03 : TABLES THEMSELVES: 
000 304 
0D 5 MBATAB ; TABLE OF MBA CONSTANTS 
8 0000 § 6 .BYTE 8 : # UNITS IN MBA IDB 
0030 0g 30 ;WORD ADPSC_MBAADPLEN : # BYTES IN MBA ADP 
00 ety 28 -BYTE ATS_MBA 3; MBA ADAPTER TYPE 
0011 510 DRTAB ; TABLE OF DR32 CONSTANTS 
Qi 0011 511 .BYTE 1 : # UNITS IN DR IDB 
0030 0012 318 “WORD ADPS$C_DRADPLEN : # BYTES IN DR ADP 
02 O014 313 .BYTE ATS$_OR + DR ADAPTER TYPE 
0015 515 CITAB: ; TABLE OF CI CONSTANTS 
Qi 0015 16 .BYTE 1 : # UNITS IN CI IDB 
0030 O16 1 “WORD ADPS$C_CIADPLEN : # BYTES IN CI ADP 
04 0018 318 “BYTE AT$_CT : Cl ADAPTER TYPE 
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NITIALIZATION FOR VAX B4/450 16-SEP-1984 246: AX/VMS M 4- 
c¢ data structures 19: SEP. 1382 98:38:93 ae euiacpg 
3 -SBTTL CPU-specific data structures 
: To sae" new CPU type: 


§ ; Create a new nexus descriptor table using FLOAT_NEXUS and 
3 FIXED NEXUS macros. Put an END_NEX USDESC macro at the end. 


CPU_ADPSIZE: 
.WORD ADP$C_UBAADPLEN 


: Declare the beginning of a nexus-descriptor table. 
, NEXUSDESC_TABLE LABEL=NEXUSDESC 


Describe all possible nexuses on an 11/750 (the first 10 have fixed 
assignments). 


SBI CPU = = 
BI CPU 
FIRED. NEX 


US = 
PHY SADR=10750$AL JOBASE , 
PERNEX=10750$A 
NERUSTYPES=<NDTS Reniabent. - 


NDTS_MPM1, 
ele “MPM2, - 


NDTS$— “UB1> 
FLOAT_NEXUS = 
PHYSADR=10750SAL_IOBASE+<10*10750SAL_PERNEX>, - 


NUMNE X= 
PERNEX=10750$AL _PERNEX 
END_NEXUSDESC 


virtual address of every adapter on the systen. The arrays, CONF 
SBICONF, are allocated oe space to ho 


actually exist on the systen, Ll ag space from non-paged 
and move a permanent copy of these arrays into that space. 


PAPO ODNANO ONO NA NE WIN SO OD NAME WIN 0 OD NAME WS OUODNAUL VOW 


3 A™\QOODOO V1—* 0009 09 09 09 09 09 09 09 SI NIN SINS NS NS NSP AAA AAAAA AUNTY 


aw bn” be” bee” te” bee’ be be be | al al Sak “ah Ab Ab AL AD Ab Ab Ab Ab Ab db bb db db dh ah sh sh sheds 
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3 


adapter 


Nexus ‘‘descriptor’’ arrays -- these arrays hold the nexus-device srpe, one , 
an 
d the maximum number of adapters 
that can be attached to an vat ren the code discovers how many adapters 
wl 


pool 


IN 


INIADP750 
v04=008 


= ADAPTER 

CPU-specif 
00000040 ” 
OO0000ES st 
Q000001E4 oe 
QO0002E4 O1E4 


NITIALIZATION FOR VAX 1/350 16-S 
¢ data structures 


15 pay tS = 64 
CONF REG: 

-BLKB 

«BLKL 


1 


i 


8 SBICONF : 


CONFREGL: 


LKL 


MAXNEXUS 
MAXNEXUS 
MAXNEXUS 


11-S 


0:46: 9 AX/VMS Macro V04-00 Page 1g 
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; Byte array of nexus-device type codes.. 


; Longword array of VAs of adapter space. 
; Longword array of nexus-device type codes 
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Message str ~SEP-1984 29:18 CSYSLOA.SRCJINIADP.MAR; 3 (6) va 
yi -SBTTL Message strings 
4 R=1 
BO00000R O5EC fs | 
E4 NOSPT 
2D 54 $3 3 49 43 $3 ; 45 £3 A 0D E4 eASCIZ <CRO<LF>/XEXECINIT<-Fe-Insufficient SPT entries/<CR><LF> 
6 4 § 6 4 $8 7 3 49 20 46 FO 
69 72 74 6E 65 20 54 3 $0 4 of a5 
0 OA OD 73 6 
D t39 BADUMR: 
20 20 4 25 33 $3 $3 28 ae §3 20 90 19 731 eASCIZ <CR><LF>/ZEXECINIT=F-UNIBUS memory does not start at 0/<CR><LF> 
4 6F F 64 2 e F 
BESREGKER RES He 


INI ADP750 - mya 
v04-002 INI$SI 


_ 
a 


OND heeerrrewn, oo 
or 
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ATION FOR VAX 1/350 16-SEP-19 0:46: AX/VMS Macro V04-00 P 
ze and map nexuses 19-86 -1 98e 4 8:38:93 SYSLOA. SRC RESINY INIADP.MAR; 3 St 


-SBTTL INISIOMAP, Initialize and map nexuses 


3 "FUNCTIONAL DESCRIPTION: 
This routine is executed only once, during os cnietet test ten. 
- loops through all nexuses on the system, testi 79,'0 
apters. When it finds an adapter, it maps its 1/0 space and 


INPUTS: 
BOOSGL_SPTFREL = next free VPN 
MMGSGL-SPTVASE - —_ of s eyetes page table 
EXESGL-RPB ress of reboot parameter block 
RPBSL “KDPPHY(RPB) = - oor of boot adapter space 


OUTPUTS: 
RO = SS$_NORMAL 


For each adapter found, its accessible 1/0 space is mapped to virtual 
addresses. n ADP (Adapter Control Block) is built, and the hardware 
adapter is initialized. 


The ptrere CONFREG (a b oxte array of nexus-device of codes, defined 
vietu T$_ symbols) and SBICONF (a Longword oreey ¢ 

rtual addresses that map gdepte er Space: are initialized. Pointers 

o these arrays are stored in EXESGL FREG an 
MNGSCL _SBICONF. The number of ano un these two parallel arrays is 
stored in EXES$GL _NUMNEXUS. 


Since BI devices have a 16-bit device type code new CONFREG array is 
constructed. This is a longword array called CONFREGL. 


Several locations in the RPB that describe the boot device are init'ed: 
RPBSL_BOOTR1 ~ sae Hl index into CONFREG and SBICONF for the boot 


adap 
RPBSL_ADPVIR - ny vA of boot device adapter's register space 
RPBSL_CSRVIR - holds VA of boot device's register space 


aon 


NO 


oS 
[=] 
So 
[=] 


-PSECT SS$SINITSCODE,QUAD 
INISIOMAP: : 


7 
7 
7 
7 
8 
OFFF 8F BB 9 4 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R1I0,RIT> 
0 ; Set up common inputs to CONFIG_IOSPACE subroutine for the CPU-specific code. 
38 sia 4 i D 1 MOVL G*BOOSGL_SPTFREL,R ; Get next available VPN. 
5 OgpO00) fs D § MOVL G*MMGSGL~SPTBASE,R ; Get base of Lapyese® Page Table. 
5 O5¢ B 1 MOVAL sB52 ER RS ; Compute SVAS 
_ 006800 $F 1 4 ASHL # Re 3; Convert aig fo VA. 
0 c 1A 5 BISL avAsh SYSTEM,R2 : Set system b 
D4 1 § CLRL : Fleer” ndex Wie CONFREG and SBICONF. 
aid fi 8 3 MOVL spe 0: Get address of RPB. 
“ott wy : : A 3 ASHL it ce RDBPHY <R9) R10; a PFN of boot adapter space, 
‘ ointers to local cop 
DE 1 MOVAL L_SBICONF s tp inters to local copies 
ie tf DE 3 MOVAL BICONE. “GreXESEL CONF REG ese arrays for init’ rautlaet 
CF 1E4°CF DE 42 9 MOVAL We CONEREC® G eXeseC CONF REGL: . ean 


F 
INILADP750 DAPTER INITIALIZATION FOR VAX 1/350 SEP-1984 AX/VMS # v04-00 Page 15 
Voeebos Intt PADP. 780. "H b, ADAgS and _UV1 19-865 1382 98: 38: } SYSLOA.SREJINIADP. MAR; 3 e 
rt 9 R «-SBTTL INITADP_780, _750, _730, and _UV! 
48 : 1/0 address space for the 11/780, 11/750, 11/730, and Micro-VAX I cpus 
rt 4 ; is statically defined in their respective nexus descriptor tables. 
56 O0020'CF DE 004 4° MOVAL W*NEXUSDESC,R6 ; Get address of nexus table. 
B 04 2 5 CLRL R11 ; Signal use 1st page of SCB. 
10 034 ono BSBB CONF IG_IOSPACE ; Configure processor 1/0 space. 
054 909 
00c3 «430 0054 ~= 910 BSBW CREATE ARRAYS ; Create Comnnee and SBICONF arrays. 
Orr Bf BA et 911 POPR #°M<RO,R1,R2,R3,R4,R5, R6, R7,R8B,RI,R R11> 
0 1 pO 0058 316 MOVL #1,R0 : Set las "status 
05 OOSE 91 RSB ; Return. 
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-SBTTL CONFIG_IOSPACE 
CONF IG_IOSPACE 


Given a nexus Gepcriptor table, which des 
lable on a systen to hold 


bes what ‘‘nexuses'’ or 


cri 
1/0 adapters, find and 


slots’ are ava 
initialize all adapters on the system. 
Inputs: 
R2 - next available virtual address, to be used for mapping I/0 space 
R35 = address of PTE associated with VA in R 
R4 = Current index into CONFREG and SBICONF arrays (should be 0 the 
first time CONFIG_IOSPACE is called) 
R6 = address of nexus descriptor table 
R9 - address of Restart Parameter Block (RPB) 
R10 - PFN of boot adapter space 
Rii= page offset from beginning of SCB; tells which page of the SCB 
to use for this set of nexuses (passed to routines that init ADP) 


COOCOCCCOOCOCOOCOOCOCOCOOCOOOOOoOOoOe 


hehe eich clack eh ech eh edb eich hh eh ech edhe ech ich “edb “adh ich adich “dich adel 


CVPR e Se Se Ge Se Se Se Ge Ge Ge Be Ge Ge Se Se Se Se Se Se Se Sees 


Outputs: 
R2,R3,R4 = updated 
RO.RIO0 R11 = preserved; all other registers potentially modified 
CONFREG = initialized with adapter NDT$ code for each nexus 
: SBICONF = initialized with adapter space VA for each nexus 
: ONF IG_IOSPACE: 
: > Main loop. Map and initialize all adapters on system. 
5 e 
FB A6 «90 5 MOVB CSR_LEN_OFFSET(R6),- ; Move length of adapter type field 
0004 'CF 6 w* LEN ; _in CSR's to static location. 
FC A600 6 MOVL BUS CODE_OFFSET(R6).- ; Move software defined bus type code 
0005 'CF 6 w*SQ_BUS-CODE 3 to static longword. 


NXT_NEXUS: ; For each nexus... 
MOVL 


SS SESS Een 
Soe 


COOOOSOSOSCOSOOOOOO OOOO OOOOOOOOOOOOOOOCOOOOOOOOOO OOOO OOOOOOOOOOoOO 


58 86 OD (R6)+,R8 ; Get PFN of nexus. 
_, Seek 3 BNEQ TEST_NEXUS ; If PFN non-zero, go test the slot. 
0 4 RSB ; If 0, we've found all nexuses. 
71 ; Read configuration register to determine if anything is present at this 
71 3; nexus. 
71 : 
71 TEST_NEXUS: 
weoeyyee ef C9 71 BISL3 M#PTESM_VALID!PTESC_KW,- ; Temporarily associate VA in R2 with 
6 8 77 ; PFN in RB via SPTE in R3. 
79 208 SPRICTINI 8*10$, - ; Protect following code from non- 
79 39 #<MCHKSM_NEXM!MCHKSM_LOG>; existent memory machine checks. 
51 62 00 5 970 MOVL (ne) R1 ; Read adapter configuration register. 
é 971 SPRTICTEND 108 : End of protected code. 
3f8 NVALID Re ; Clear TB of temporary mapping. 
1150 €8 : 15 BLBS RO,GET_TYPE ; Branch if no machine check occurred. 
: 4 ; No adapter present at this nexus. 
OOAS'CF44 9% F 378 CLRB W*CONFREGCR4) ; Store “‘unknown'’ type in CONFREG 
O1ES'CF44 = 4 4 378 CLRL W*CONFREGLER4) ; and in CONFREGL also. 
55 D4 99 97 CLRL R5 3; Use general memory type to map 
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20$: 
57 0005'CF 


GET_GEN_TYPE: 
MOVB 


30$: 
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; one page of 1/0 space. 


ADDL2 #4,R6 ; Step past type code in nexus table. 
; BRB MAP_NEXUS ; Go Rep 1/0 Space for this nexus. 
: Execution continues here if adapter was present. 
GET_TYPE: 
MOVL (R6)+ ; Get nexus-device type from nexus table. 


R? 
BNEG §GET_GEN_TYPE : Branch if fixed slot. 


float tog-tyee slot. Use type from configuration register. 
Determine type in configuration register is 8-bits or 16-bits. 


CMPB #1,W*°BUS_CSR_LEN ; Determine Length of adapter type 
fiel in R7. 


BEQL 10$ ; EQL implies 1 byte (8-bit) field. 
MOVZWL R1,R7 ; BI_LIKE, so use word instruction. 
8 o$ : Skip byte instruction. 
10$: MOVZBL R1,R7 ; 


; Use byte instruction to get type. 
BISL  W*SW_BUS_CODE,R7 : Or in software bus code. 


: Here R7 has hardware adapter code or‘ed with software bus code. 
; Translate specific nexus device type code into general adapter type code. 


R7,W*CONFREGCR4) Save nexus-device type in CONFREG. 
MOVL R7,W*CONFREGLER4) ; CONFREGL also filled in. 
R5 ; Clear loop index. 


MOVAL W*ADAPTERSCRS5),RO Get address of adapter type code. 
1 gu Aye PAGES Push addr of end of ADAPTERS array. 


L 0,(SP)+ See if ue went beyond array. 
BGEQU END wayus unrecognized adapter, do not map. 
CMPL R7, TRO) agapser type match? 

BEQL 40$ If EQL yes, adapter type match. 
INCL R5 Increment loop index. 
BRB 30$ Look at next adapter. 


: Store boot parameters. 


Does PFN match boot adapter's PFN? 
No; continue. 
Store VA of boot adapter space. 


_ADPVIR(R9) ; 
VL 1 pe eablahaeealed ; Store boot adapter nexus number. 
EXTZV 15, ° ; Get offset into UNIBUS/QBUS 1/0 page. 
RPGs ESRPHY(R9) .R1 : 
MOVAB <8t 22 (ney CAt ~ ; Set VA of UNIBUS/QBUS registers. 
RPBSL_CSRVIR(ROS : 


" > RS/ general adapter type; index into ‘‘general’’ adapter arrays. 


; For each adapter - 


INIADP750 = ADAPT I IALIZATION FOR VAX 14/350 16-SEP-19 AX/VMS Macro Vv04-00 P 
yo4-002 CONF 1G_10SP 1FxsEp=1Sbe Feisosie FSKSYOS Saese eee Oks | Pawe 18, 
§ ; Map the # 0 pages specified in ADAPDESC macro | 

: JSB to initialization routine specified in ADAPDESC macro 


R2,W*SBICONFCR4) 
uum PAGESCR5),R1 


MOVAL wW* ait -ROUTINESCRSJ,R1 
TSTL ( 


peat END NES 


Save VA of adapter ayers in SBICONF. 
Get number of De to map. 
Map the 1/0 p ages 
Get address ef nitialization routine. 
poet et Tere go routine specified? 

anc 
Call initial ization routine. 


Increment CONFREG and SBICONF index. 
Go do next nexus. 
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-SBTTL CREATE_ARRAYS 
CREATE_ARRAYS 

Move the local CONFREG and SBICONF arrays into non-paged pool. 
Inputs: 

R4 = Number of nexuses on the system 

CONFREG and SBICONF have been initi 


Outputs: 
5 destroyed 


R 
EXESGL. CONF REG ‘points to a copy of the CONFREG array in non-paged pool 
MMGSGL-SBICONF po'nts to a copy of the SBICONF arrey in non-paged pool 
EXESGL-NUMNEXUS contains the number of nexuses on the system 
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from SBICONF MOVCS, so SBICONF and 
CONFREGL must be adjacent. 
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Q00000000'GF 54 »d0 R4 ,G*EXES gua NUMNE XUS ; Store number of nexuses on system. 
51 0C Adda MOVAL 12(R4)CR4],R ; Allocate n bytes for CONFREG plus 
: 4n oytes for SBICONF + header 
51 6144 (R1)CR4],R1 ; Another 4n bytes for CONFREGL. 
O1F9 0 BSBW ALONPAGD : Get pool for CONFREG and SBICONF. 
§¢ 0 CLRQ (R2)+ : gleee aout unused 
1 B 8 MOVW R1,(R2)+ size 
82 65 8F 8B MOVW #<DYNSC cout o> iovwet init? tha) 3 Set type and oul type 
000000: 62 YE 9 MOVAB Re? Ra XESGL_CON ; Store address one 2 REG. 
6244 9 9 MOVAB (Ro) : Two steps to 1st, SBICONF, 
00000000'GF 51. »D 9 OVL R1,G*°M ane I CONF Store ~ Ad, ot system SBICONF. 
00000000'GF 6144 ODE 9 MOVAL CRADERG G*EXESGL "CONF REGL ; And address of system CONFREGL. 
14 Se 09 PUSHR My 3; Save pool address and nexus count. 
62 OOAS'CF 54 2 09 MOVC3 4.us ache (R2) + Copy CONFREG to pool. 
14 BA 83 POPR ; Retrieve pool address one. nexus count. 
51 54 04 C5 9 MULL3 3; Number of pyres in SBICON 
_— . oF 0? 10 MOVL ate Regs ; Save, SBICONF size = AS OFREGL size 
6244 OOE4'CF 51 2 10 mMovcs Ri OSB Y CONF, (R2)ER4I : copy SBICONF to pool. 
1 £6€ 3 1 MOVL +,R ; Restore size of BICONE and CONFREGL. 
63 O1E4'CF 51 2 ! MOVC3 R1,W*CONFREGL, (R3) : Copy ha Se to pool. R3 is output 
1 ; 
10 
10 


dupape ro 
v04-002 


83 58 


00000000 ' GF 


90000000 8F 


38 9308 C 
0000000 * GF 
00000000 ' GF 


oe 51 


51 O2E4'°CF 


5B 
00000000 ' GF 
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~SBTTL MAP_PAGES 


“INPUTS: 

R1/ Number of pages to map. 
R2/ VA of page to map 
R5/ VA of system page “table entry to be used. 
R8/ PFN of page(s) to map. 


OUTPUTS: 
R2, R3 updated; R1,R8 destroyed; all other registers preserved 


MAP_PAGES: 
BISL3 #<PTESM_VALID!PTESC_Kw>, RB, (R3)+ 
; Map a page 
INCL 3; Next PFN. 
MOVAB 2(R2) ,R2 3 Next VA. 
INCL G*BOOSGL_SPTFREL 3; Next free entry. 
CMPL G*BOOSGL_SPTFREH, - ; Check for no more system page 
“BOOSGL_ SPTFREL ; table entries 
BLEQ E HALT 3; Branch if ont “of SPTEs. 
SOBGTR R1,MAP_PAGES : ner another page. 
RSB 3 done. 
ERROR_HALT: 
B W*NOSPT,R1 ; Set error message. 
ERROR_HALT_1: 
CLRL R11 ; Indicate console terminal. 
JSB G*EXESOUTZSTRING ; Output error messa 
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-SBTTL INISUBSPACE 
Map UNIBUS space; initialize UNIBUS ADP. 


; INPUTS: 
R2 - VA of next free system page 
RS = VA of system page table entry to be used to map VA in R2 
R4 = nexus identification number of this adapter 
-8(R6) = PFN of this UNIBUS adapter's register space 
; OUTPUTS: 


UNIBUS space is mapped. 
INISUBADP is called to build an ADP block and initialize UNIBUS 
adapter hardware. 


I 


NISUBSPACE: 
MOVAL W*CONFREGLCR4],R8 ; RB => CONFREGL slot. 
EXTZV $0.8. (RO) RE ; Get UBA number. 
ASHL #9,R8,R8 ; Position UB number. 


SUBL3 R8,#<10750$AL_UBOSP+*0760000/*X200>,R8 
; Get PFN of UB I/0 page. 
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MOVL #16,R1 ; Number of pages to map (UB/Qbus space). 
BSBW MAP_PAGES ; Map 1/0 pages. 

: Call adapter initialization routine. 

: BSBW INISUBADP : Init ADP block. 

; RSB 


M 
INIADP750 = ADAPTER INITIALIZATION FOR VAX 350 16-SEP=1 AX/VMS Macro Vv04-00 Page 
marae INISUBADE - Nauteb D ADP AND INITIALIZE UBA 11- iets 7 98: 38: 9%} YeYSLOR. SRE INI ADP .MAR;3 . (id) 
it ] 23 ; -SBTTL INISUBADP = BUILD ADP AND INITIALIZE UBA 
1€4 1341 : INISUBADP ALLOCATES AND FILLS IN AN ADABTER CONTROL BLOCK, INTERRUPT 
1€4 1342 ; DISPATCHER AND CONNECTS THEM TO THE PROPER SCB VECTORS. A CALL IS 
\ee ! ti ; THEN MADE TO UBASINITIAL TO INITIALIZE THE ADAPYER HARDWARE . 
164 1345 : INPUT: 
104 «1 r 3 R4 = nexus identification number of this adapter 
Ve 1 i8 : R11- offset from beginning of SCB to correct SCB page for this adapter 
104 1349 ° 
\te ! 9 INISUBADP: 
OFF 8F BB ite } § PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8> =; SAVE RO-RB 
id ! 2¢ : Allocate and initialize Adapter Control Block (ADP). 
51 saad f 1¢ 1 2$ ‘ MOVZWL W*CPU_ADPSIZE,R1 ; PICK UP LENGTH OF ADP 
0156 0 1cD 1 : BSBW A 3; ALLOCATE SPACE FO 
O8 A 51 60 0100 1 8 MOVW R1,ADP$W_SIZE(R2) : SET SIZE INTO ADP BLOCK 
OA A 01 90 104 135 MOVB # YN ADP ; AND SET TYPE OF BLOCK 
108 1360 ADPSB TYPE(R2) 
OE A2 01 B0 1D 1361 MOVW #AT ; SET TYPE OF ADAPTER 
1c 1 6¢ ADPS@ ABET PE CR2) 
62 OOE4'CF44 00 185 : re MOVL ye ee shit 3; SET VA OF CONFIGURATION REG 
OC A2 54 BO ie } 92 MOVW Re ADPSU. TR(R2) ; SET TR NUMBER FOR ADAPTER 
50 144A DE 166 1 86 MOVAL egret DPQFL(R2),RO 3; ADDRESS OF DATA PATH WAIT QUEUE 
yt) 1EA 1 oe MOVL RO, (RO) ; INIT QUEUE HEADER 
04 A0 50 00 160 ' 9 MOVL RO. 4(RO) 3 
50 30 A D 1F1 1371 MOVAL ADPSL_MROQFL(R2),RO 3; ADDRESS OF MAP WAIT QUEUE 
: 06 FS) (1 ie MOVL RO, (RO) : INIT QUEUE HEADER 
04 AO 0 OD 1F8 137 MOVL RO,4(RO) 3 
A2 04 OFC 137% CLRL  ADPSL_LINK(R2) : ZAP ADAPTER CHAIN LINK 
FDFE* 0 ire ! i BSBW ADPLIAK ; LINK ADP TO END OF LIST 
3 ' re : Initialize adapter interrupt vectors in System Control Block. 
58 00000000'GF 00 ! 8 ; MOVL G*EXESGL_SCB,R8 ; GET SCB ADDRESS 
3 1389 
tie 
2 DD 9 1450 PUSHL enone uB0 3; ASSUME UBO 
0298 bj DE : 133) MOVAL ahbte vel tone : GET VECTOR SPACE FOR UBO 
28 3 =O1E4'CF44 } i} 1488 cror Uo CONFREGL Rane 2 Ts _UB0; bs peuiee Tyre = UBO? 
00 19 1455 MOVL aNDTS UB1, (SP) : IN: ICATE vay 
10 A200 00 8F «CC 1c 14 § ADDL #°X200, ADPSL WE STONERS? ; STEP TO ITS VECTOR SPACE 
60 A 88 4 14 10$: MOVW a*x ,ADPSW PBITMAP(R2) ; MARK DATAPATHS 1-3 AVAILABLE 
; 8 14 8 MOVL ADPSL “ESRARG). Re ; VIRTUAL ADDRESS OF ADAPTER 
33 30 Hi 14 MOVAB vat MAP(R5) : POINT TO MAPPING REGISTERS 
4 . bf C p 1299 MOVZWL 3; NUMBER OF UMR TO DISABLE 
3.0 D4 461 20$: CLRL ; DISABLE A UNIBUS MAP REGISTER 


N 
INIADP750 < ADAPTER INITIALIZATION FOR VAX 4/950 16°SEP=1986 00:46:01 VAX/VMS Macro V06-00 p 
04-002 INISUBADP  NBUILBUADP AND. TRIYEALIZE OBA 1iagePetoae $ors854B PANSY OS. taese Vere aR:s | fae 
B54 OFS SOSGTR R4.208 : LOOP THRU THEM ALL 
53 o0000001'cF be OVAL. G*UBASUNEXINT#1.R3 i GET ADDR OF UNEX INT SERVICE 
: U1 MEANS HANDLE ON INT STACK) 
54 O001'CR DE MOVAL W*UBASINTO+1,R4 : SPECIAL CASE TO COUNT PASSIVE RELEASE 


: INIT UB VECTORS TO UNEXPECTED INTERRUPT SERVICE 


50 1A 00 MOVL _—ADPSL VECTOR(R2), RO : GET ADDRESS OF VECTORS 
80 D MOVL : SPECIAL CASE FOR VECTOR 0 
51 7F BF OA MOVZBL a cMUAUBAVEC -1>,R1 + REST OF VECTORS 
go § 09 30$:  MOVL : FILL VECTOR WITH UNEXP INT 
FA 5) OF SOBGTR R + FILL ALL VECTORS 
6 29 91 CMPB ss #NDT$_UB1, (SP) : 1S THIS UB1? 
Re” BNEQ 40$ ; IF NOT, SKIP CODE 
: SAVE CONTENTS OF SPTE'S MAPPING UB SPACE 
54 52 00 MOVL  _—R2, R4 ; SAVE ADP ADDRESS 
52 62~—C(«éiO MOVL  ADPSL (R2) »R2 : GET vA.0 F ADAPTER 
00000000'GF 16 JSB GPRRGSSVAP t GET ADDRESS OF SPTE MAPPING ADAPTER 
54 AG 6063S MOVL  —(R3) ttt SSASPT E(R4) + STORE CONTENTS OF SPTE IN ADP 
58 AG «620 AS-i MOVL CBeastRs)e RDPSL reset chiens ; SAME FOR I/O SPACE 


CALCULATE AND STORE VA OF IPEC REGISTER, WHICH CONTAINS BITS NEEDED 
TO PROCESS POWERFAIL 


ADDL3 #<8**X200> + UAS$SW_IP_CR1,- ; VA OF ADAPTER + OFFSET TO 
R2,ADP$L_UBASCB+12TR4) ; "1/6 SPACE + OFFSET TO IPEC REGISTER 


; STORE INTERRUPT CODE IN ADP, STORE ITS eegnese IN POWERFAIL INTERRUPT 
; VECTOR IN SCB, AND SAVE ITS ADDRESS IN ADP 


00002464 8F (C1 
50 AS 52 


48 AG O31E'CE MOVQ  W*UBATINT, ADPSL pUBASCB+4 (RG) 
4A AG 0009" ct 9E MOVAB W*EXESUBAERR_INT.ADPSL UBASCB+6(R4) 
0164 CB «4B AG ODE MOVAL ADP$L_UBASCB74(R4) , “X1E4( 

O1E4 C8 6 INCL * KIESTR ) ROSE INTERRUPT STACK 

44 AG 48 AG ODE MOVAL ADPSL _UBASCB+4(R4) ,ADPSL: * UBASCBCRS) 
: DONE WITH ADAPTER=SPECIFIC CODE 
52 54 00 MOVL  R4,R2 : RESTORE R2 
se ACE 40$: ADDL #4.SP > CLEAN STACK 


disable all the NIBUS Map Reg ters so thas there is no conflict in 
which memory w respond. en we check ait 248Kb of 0 memory in 
8Kb chunks, since each disable bit on the 780 UBA represents 16 UMR's or 
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Now check for | UNIBUS monery that may be on the gcepter. fF icae we must 
s 


INILADP750 = ADAPTER INITIALIZATION FOR VAX F350 16-SEP-1984 00:46: AX/VMS Macro v04-00 Page 24 
marae INISUBADP = BUILD ADP AND INITIALIZE UBA 1$-SEb=1 382 90:38:9) SYSLOA.SRCJINIADP.MAR;3 ° (ia) 
98 1 § ; 8Kb of memory. The number of registers is stored in the ADP and the 
oe 3 ; corresponding number withdrawn from the UMR map in the ADP. 
98 1659 ° 
56 ¢ dO 98 196) MOVL ADPSL_CSR(R2) ,R6 ; Pick up adapter pointer 
04 9E 1 o¢ CLRL 3 igre out number of UMR to disable 
57 08 Ag 00000200 8F C AQ 166 SUBL x 9 8(SP),R7 ; R? = VA of Last page of yaieus 
8 AE ,°£ Ad 1665 SUBLS #4 2<sP) RB : RB = VA of SPTE mapping (R7) 
54 20 AE 00000000 BF ¢ Ag 1666 SUBL3 «#512, 32(SP) ,R4 : R4 = PFN of first page of UNIBUS 
9 ) 5 199 PUSHL (RB) ; Save contents of SPT 
33 4 OD B89 1 rt: MOVL 4,R3 : Gop starting PFN 
1F dD BC 198 MOVL 8 {,R5 7331 bx chunks to test 
BF 1670 50$ INVALID :; Invalidate TB 
90000000 8F C9 c¢ 1671 BISL #<PTESM_VALID!PTESC_KwW>,- 
3 4 C 1o7¢ ; Map each page of UNIBUS 
0 7 8 CA 167 MOVL R7,RO 3; Address to check 
FD30° CD 1674 BSBW EXESTEST CSR > Validate it 
0D ° E9 DO 1675 BLBC RO,70 ; Not there 
54 ft D 1978 CMPL ; First time in? 
06 =O D6 167 BEQL $ : Yes, skip next test 
¢) Be D 1978 TSTL R 3; Any registers already? 
Bo % DA 167 BEQL 0$ 3; No, memory not start at 0 
51 10A1l_ 9€E of 1680 gos: MOVAB 16(R1),R1 :; Yes, up the count 
54 10 AG Hs E 193) O$: OVAB 16(R4) RS 3; Map Next 8Kb (16*512) 
08 55_—=Ss#éF —E4 16 ¢ SOBGTR R5,50$ ; Loop until done 
68 8EDO E7 168 POPL (RB) 3; Restore old contents of SPTE 
EA 1684 INVALID R7 : Invalidate TB 
0256 C2 51 B80 EB 1 6 MOVW R1,ADP$W_UMR_DIS(R2) ; Record number disabled 
Fe 16 § ; Initialize fields for new UBA map register allocation. Make it appear 
Fe 1690 ; that we have one contiguous array of 496 available map registers. 
Fe 1691 ; To do this we set ADPSL_MRACTMDRS to one (the number of active 
O2F 1696 3 wep ty MOS 9 descriptors for distinct contiguous areas) 
O2F2 1693 : ADPS$W_ARNREGARY(0) to 496 (i.e the number of registers in this 
8 Fe 1694 ; contiguous range) and ADPSFREGARY(0) to 0 (i.e. the first register 
8 : 169? ; in the range is register 0). 
5C A2 1 D F 1899 ‘ MOVL #1,ADPSL_MRACTMDRS(R2) ; 1 active map descriptor 
64 A2 O1FO 8F 1 A F6 1998 SUBW3 = R1,8496, ADP$W_MRNREGARY(R2); for a range of 496 registers 
0156 C 1 86 FD 1710 MOVW R1,ADPSW_MRFREGARY(R2) ; starting at register zero. 
g A 01 AE 1711 MNEGW it read td FH ; Also init “fences’’ which preceed 
015C C 01 AE 6 Har MNEGW #1,ADPSW_MRFFENCE(R2) 3 the two descriptor arrays. 
Har, ; Initialize adapter hardware. 
5462 B8 at MOVL ADPSL_CSR(R2) ,R4 ; Get CSR address to init 
pce 171 BSBW =s«UBASIRITIAL ;_And initialize adapter 
OFF 8F a 1 1718 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; Restore registers 
5 1 171 $B 3; Return 
sg 
: if i ; Error if UNIBUS memory not start at location 0 
51 oe 3 1 1725 808: MOVAB W*BADUMR,R1 ; Set error message 
FE80 18 iy g BRW ERROR_HALT_1 ; Put it out 


Sz 


INIADP750 - ER INITIALIZATION FOR ax ft (50 SEP=1984 00: AX/VMS Macro V04-00 Page 25 
ye-b03 INTSOBABR oN BUILD ADP AND INITI thu ize B. 9-866 ~}38% 9° +58: 9} SYSLOA.SRCJINIADP.MAR; 3 . da 
1 1 3 
iE 1 : ; UBA_INTERRUPT SERVICE HANDLER FOR 11/750. THIS CODE IS PLACED 
1E 1806 ; IN THE ADP, AND IT IS POINTED TO BY THE SCB VECTOR WHICH 
1E 1805 ; HAND UBA POWERFAIL baad yet USING A JSB TO DISPATC 
, oe § ; TO THE ADAPTER POWERFAIL INTERRUPT CODE ALLOWS A POINTER WITH A 
1€ 1 ; KNOWN OFFSET INTO THE ADP TO BE PUSHED ON THE STACK AND USED 
Hi ! 3 ; BY THE CODE TO FIND THE ADP. 
a 9 UBA1INT: 
00000000 9F 18 1€ 181 JSB avd ; ERROR ROUTINE IN ADPERR750 
000 24 1812 »WORD O ; ZERO OUT REST OF QUADWORD 


BAI 
BI 
BI. 
BI 


Bu! 


2esrssss 
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INPUT: 
R4 = nexus identification number of this adapter 
R11- offset from beginning of SCB to correct SCB page for this adapter 


OUTPUTS: 
ALL REGISTERS PRESERVED 


INIADP750 = ADAPTER INITIALIZATION FOR VAX 81/950. 1 =SEP-1984 X/VMS Macro V04-00 Page 26 
v04-002 INISMBADP - LD ADP AND INITIALIZE MBA 1 1%: SEp-19be 98: 33: 3 USYSt0 OA.SRCJINIADP.MAR; 3 . He) 
-SBTTL INISMBADP = BUILD ADP AND INITIALIZE MBA 
»SBTTL HE ape - BUILD ADP AND ise DR32 
. «-SBTTL INISCIADP = BUILD ADP AND INITIALIZE C1 
; INISMBADP IS CALLED AFTER MAPPING THE REGISTERS FOR A pony ADAPTER. 
; AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. A CRB AND IDB ARE 
+ ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED 
; BY CALLING MBASINITIAL. 
; INISDRADP IS CALLED AFTER tel by, THE chet FOR THE DR32 
; ADAPTER, THE ADAPTER CONTROL BLOCK, CRB, AND IDB ARE ALLOCATED 
; AND INITIALIZED. THE ADAPTER HARDWARE 1§ THEN INITIALIZED BY 
; CALLING ORSINITIAL. 
; SMBADP AND _INISDRADP SHARE COMMON CODE AFTER THE TABLE OF ADAPTER 
; SPECIFIC CONSTANTS IS SELECTED AND STORED IN R8. 


00000000'GF 17 ALONPAGD : JMP G* INI SALONONPAGED 


IN 
Sy 
1D 
1D 
IN 
IN 
IN 
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IN 
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i0 
10 
10 
LF 
Ll 
Ll 
MA 
MA 
MA 
mB 
MB 
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AC 
mc 
fa 
me 
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ND 
ND 
NO 
ND 
NO 
ND 
ND 
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NO 
NO 
NO 
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.ENABL LSB 
44 INISDRADP: ; INITIALIZE DR32 DATA STRUCTURES 
O7FF 8F 8B 4 PUSHR #H<RO R1,R2,R3,R4,R5,RO,R7,RB-RI,RIO> ; SAVE REGISTERS 
58 OO11'CF DE 4 MOVAL TAB Re. : GET OR32 TABLE OF CONSTANT 
59 OO00'CF 9E MOVAB “DR RSIW t ADDRESS OF INITERRUPT SERVICE ROUTINE 
5a Q000'CF = -9E MOVAB U-ORSINE Ro R10 : ADDRESS OF DEVICE INITIALIZATION 
28 11 BRB 10$ : JOIN COMMON CODE 
INISCIADP: ; INITIALIZE CI DATA STRUCTURES 
O7FF 8F BB PUSHR wencRO R1,R2,R3,R4,R5,R6,R7,RB,RI,R10> ; SAVE REGISTERS 
58 OO1S'°CF ODE 61 MOVAL TAB,RS :"GET C1 fABLE OF CONSTAN 
39 0000' CF 3E 6¢ MOVAB uCiSInt RO : ADDRESS OF INITERRUPT SERVICE ROUTINE 
A 0000'CE 9 6 MOVAB UCISINITIAL. R10 > ADDRESS OF DEVICE INITIALIZATION 
ae 64 BRB 10$ : JOIN COMMON CODE 
68 INISMBADP: ; INIT MBA DATA STRUCTURES 
O7FF 8F BB %e PUSHR  #*M#<RO-R1_,R2,R3,R4,RS,RO-R7,RE_RI, R10> : 
58 OOOD'CF ODE 7 MOVAL W*MBATAB RB : GET MBA TABLE OF CONSTANTS 
59 O000°CF 9€ 74 MOVAB W*MBA ASI Nf,R : ADDRESS OF INITERRUPT SERVICE ROUTINE 
5a Q000'CF =O soO9E i $e MOVAB Ue ROAS INITIAL R10 > ADDRESS OF DEVICE INITIALIZATION 
7 3 : : 
8 ; Allocate and initialize Channel Request Block. 
51 0048 8F 3 80 MOVZWL #CRBSC_LENGTH,R1 : SET SIZE OF CRB 
B61 1 BSBB ALONPAGD t ALLOCATE SPACE FOR CRB 


INLADP750 = ADAPTER INITIALIZATION FOR VAX £1350 16-SEP=1 AX/VMS Macro V04-00 Page 27 
v04- INISCIADP = BUILD ADP AND INIT] ALIZE CI 1$-SEb= 382 99: 38; % SYSLOA.SRCJINIADP.MAR; 3 ° Ais 
08 A 1 80 0 1 i MOVW = R1, CRBSW_SIZE(R2) SET CORRECT SIZE 
AA 1 MOVE  #DYNSC_ CRB, CRASS. TYPE(R2S : SET CORRECT TYPE 
6 DE 8 1884 MOVAL  CRBSL_QQFL(R ) CRBSL_WOFL(R ) ; INITIALIZE WAIT QUEUE HEADER 
4 Ac 6 bE 7B 1885 MOVAL CRBSL-WOFL(RO),CRBSL-WOBL(R2) ; FLINK AND BLINK 
24 A 43 1 $ MOVAB cRBSL JNTD(R RO ; SET ADDRESS OF _INTD AREAD 
80 9F163¢BB ros 1 MOVL  #*X9FT63CBB, (RO)+ ; “PUSHR “WeRe R3,R4,R5>,USB aa" 
9 D A 1 8 MOVL RO, (RO) t ADDR OF XXXSINT ROUTINE 
0 04 D 1 CLRL (RO) + : CLEAR OUT UNNEEDED AREA 
0 SA dD F 1890 MOVL R10, (RO) ; ADDR OF XXXSINITIAL ROUTINE 
A 52 OD 3 4 MOVL  R2,R10 + SAVE CRB ADDRESS 
P4 ocate an n avize interrup spatc oc 
ALL d initialize Int t Dispatch Block. 
51 68 9A 0395 1895 MOVZBL ADPTAB_IDBUNITS(RB),R1 ; GET ‘ off IDB UNITS 
51 00000038 9F41 DE 98 1 36 MOVAL @#IDB$C_LENGTHLR1],R1 ; Ger I L SIZE OF 108 
+S AO 189 BSBB rnd NPAG ; AT LOCATE SPACE Ai CRB 
08 A 1 80 A2 1 38 MOVW 1, 1DB$W_SIZE(R2) ; SET STRUCTURE SIZE 
OA A 09 0 A6 189 MOVB YNSC_16B : AND TYPE CODE 
AA 1900 1DB$B. TYPE (R2) 
68 AA 1901 MOVZBW ADPTAB_IDBUNITS(R8),-  ; SET COUNT OF UNITS 
OC A2 O3AC 1908 1DB$W_ONITS(R2) 
62 OOE4'CF44 00 AE 190 MOVL W*SBITONFCR4], - 3 set CSR ADDRESS TO 
B4 1904 1DBSL _CSR(R2) ; START OF ADAPTER REG SPACE 
2C AA 52. 00 0384 1905 MOVL sft ADDRESS OF IDB INTO CRB 
0388 1906 Che INTD+VECSL_ 108(R105 
59 52 00 388 1907 MOVL : SAVE ADDRESS OF IDB 
= 1303 3; Allocate and initialize Adapter Control Block (ADP). 
51 01 a8 3° 3e8 1911 MOVZWL ADPTAB_ADPLEN(R8),R1 ; GET SIZE OF ADAPTER 
FF64 30 O3BF 191¢ BSBW ALONP ; ALLOCATE SPACE FOR CRB 
08 A251 80 ce 191 MOVW R1,ADP$W_SIZE(R2) SET Size OF STRUCTURE 
OAA2 O01 9 C6 1914 MOVB #DYNSC ABP, ADPS8.TYPE(R25; AND TYPE CODE 
62 69 DO O3CA 1915 MOVL IDBSL ESR«R9) ADPSL_CSR Rina) eT ADDRESS OF CONF I GURAT 10N REGISTER 
0c Ao 54~«=BO O08CD 1916 MOV) = RG AD W_TR(R2) SET TR/SLOT-16 NUMBER OF ADAPTER 
03 A8 98 0301 191 MOVZBW ADPTAB_ATYPE(R8),- ; SET The ADAPTER TYPE 
OE A2 D4 1918 ADPSW ADPTYBE(R 
10 A2. SA 00 D6 (191 MOVL R10, ABP$L_CRB(R2) POINT ADP TO CRB 
DA 1920 ; CMPW Apes, ADPTYPE(R2) ,MATS_ ci ? 
DA 19 1; BEQL ; YES, DO NOT CONNECT UP VECTORS 
. 1% ; Initialize adapter interrupt vectors in System Control Block. 
"GF A 1925 ° MOVL  G*EXESGL 55¢B.RO ; GET ADDRESS OF SCB 
~o 8 pt 3 § ASHL borRii ; Turn SCB page offset into byte offset. 
oe ae: —5 19 ADDL RO 3; set to beginning of correct SCB page. 
4 4 OO EF —8 19 8 EXTZV 0,#4,R4,R4 : Use low 4 bits of nexus number. 
50 0100 C044 D ED 19 MOVAL  *x{00(ROSCR4],RO : COMPUTE ADDR OF st V VECTOR 
10 A250) oéD F319 0 V RO, ADP$L_AVECTOR(R2) + SAVE ADDR OF ADAPTER'S SCB VECTORS 
6 AA DE O3F7 19 CRBSL_INTD+1(R10), (RO); CONNECT VECTOR TO CRB CODE 
40 A AA DE FB 19 é MOVAL CRBSL-INTD+1(R10).64(RO): SAME FOR 
0080 C 5 AA DE 0400 19 MOVAL  CRBSL-INTD+1¢21 2 128 (ROS ALL FOUR 
00CO CO «025 AA CODE ‘ 6 19 4 MOVAL  CRBSL-INTD+1(R10).192(RO): VECTORS 
? ; + gi 3: Continue with ADP initialization. 
14 A225 AA DE 040C 1938 SoS: MOVAL CRBSL_INTD+1(R10), - : SAVE SCB VECTOR CONTENTS IN ADP 


1/95 
NIADP750 = ADAPTER INITIALIZATION FOR VAX 11/750 16-SEP-1984 AX/VMS Macro V04-00 Page 
‘ -002 INISCIADE = BUILD ADP AND INIT IALIZE Cl 19: SEP 198¢ 98 ‘$8: % EOYSLOA. SRC) INIADP.MAR; 3 (92) 
411 193 ADPSL_MBASCB(R2) 
Q i 1 ip PUSHR #*M<R2,R3> ; SAVE SOME REGISTERS 
; 09 413 194 MOVL 2,R5 : COPY ADP ADDRESS 
i 6 p 416 1 4¢ MOVL  ADPSL_CSR(R2),R2 ; VIRTUAL ADDRESS OF ADAPTER 
09900 00' GF 6 419 194 JSB GORMGSSVAPTECHK ; ADDRESS OF SPTE THAT MAPS ADAPTER 
A 3 pd O41F 1944 MOVL R3) ADP SL MBASPTE(RS) ; SAVE CONTENTS OF SPTE 
BA 0423 1945 POPR #*M<R2,R3> RESTORE REGISTERS 
38 AA DO 04 3 1946 MOVL Rg» ¢ROSL IN TD+VECSL app (h10) SET CRB POINTER TO ADP 
14 a9 09 429 194 MOVL DBSL~ADP(RI) ; AND info [08 
FBDO' 4 1948 BSBW AOBLIN INK : LINK ADP TO END OF CHAIN 
" 1981 : Initialize adapter hardware. 
ADDRESS OF IDB 
SE RED | Re Relcnat Pee a {1 gat game 
O7FF Br BA : 5 1356 POPR #°M<RO-R1,R2, RS $7 R Rr eR RB 9,R10>; ORES TORE ALL REGISTERS 
43— 195 
43— 1958 .DSABL LSB 


voe-002 int 


05 


regi INITIALIZATION FOR VAX $1450 197 3E- 1388 90: 38: 9 AX/VMS M v04-00 Page 
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“SEP=1984 SYSLOA. SRE SINI ADP .MAR;3 (14) 


! af «SBTTL INISKDZ11 

E INPUTS: 

E 3 Re - VA of next free system page 

E : - VA of systen page table entry to be used to map VA in R2 
} Z : R4 = nexus identification number of this adapter 

E 5 i OUTPUTS: 

E $i. 3 

: 3° 

; § INI$KDZ11: 

E 8 RSB ; Return to caller. 


—————__——— 


LIZATION FOR VAX 41/350 19-8 S ath 90:36 :9) AX/VMS Macro V¥04-00 Page Rye IN 


INLADP750 -A 
v04-002 INI t data structures for co 1 P-19 SYSLOA.SRCJINIADP.MAR; 3 


STORAGE DEVICE? 
NO 


_ 
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ITIA 
ni 
mn -SBTTL INISCONSOLE, init data structures for console 
FUNCTIONAL DESCRIPTION: 
: This routine is executed only once, during system initialization. 
g : : It initializes the CRB and IDB for boot/console device. 
g i : This routine is called from INIT. 
INPUTS: 
R3 ==> DISK [CLASS] DRIVER DDB 
: R4 ==> DISK [CLASS] DRIVER DPT 
4; R5 ==> DISK CCLASSJ DRIVER UCB 
S$ ; R6 -=> RPB 
§ : ; R7 ==> ADP FOR EITHER A REAL DISK OR A PORT 
: R9 ==> PORT DRIVER DPT (IF PRESENT) 
8 ; R10--> PORT DIRVER UCB (IF PRESENT) 
ees 
§ vennanemage 3! 
? NABL LSB 
66 A691 § CMPB RPBSB_DEVTYP(R6) ,- BOOTING FROM CONSOLE BLOCK 
40 8F cer TOS$R_ CONSOLE 
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4 : 
10 4 BNEQ BLD_CR ; 
41534303 BF OD 4 MOVL PATCSA/AB+3 ~ : YES, SET DEVICE NAME 
14 a3 4 DDBST_NAME (R53) ; COUNTED STRING 
4 
57 04 044 CLRL = aR? : CLEAR POINTER 
54 a5 01 BO 045 MOVW #1, UCBS$W_UNIT(RS) > SET P NUMBER TO 1 
0 11 3 BRB FILL_CRB™ 
5 
; ; : NOW BUILD THE AUXILIARY DATA BLOCKS (CRB, IDB) 
5 bub. CRB: 
58 10 A7 00 045 0 MOVL ADP$L_CRB(R7),R8 GET ADDRESS OF CRB IF IT EXISTS 
0— A? «01”sé#BY 5 1 CMPW = #ATS_OBA, ADPSW PADPTYPE(R?) IS THIS A UNIBUS ADAPTER? 
3 13 045 : BEQL FALL oc RB : YES, ALLOCATE CRB 
008A 31 046 ; BRW 10 + NO, CRB/IDB ALREADY ALLOCATED 
3 5 FILL_CRB: 
00000000'9F 16 046 6 JSB as INISA LOC GO ALLOCATE AND SETUP CRB 
24 A2 9F163FBB BF 0 : MOVL  #*X9F163FBB; ERBSL_ INTD(RB) : SET PUSHR #*M<R 
§ JsB a#0 INTO INTERAUBT, DISPATCH 
38 A 4 00 7 MOVL R7,CRBSL_INTD+VECSi app cha) SFT POINTE ADP 
2 7 0 MOVL R2.RB : SAVE che POIN 
51 58 BF 63C (047 1 MOVZWL #<{DB$C LENGTHe<Be4>>, R1: SIZE TO ALLOCATE FOR IDB 
00000000 ' 9F 7 ; JSB oF INT SACOMONPAG ; ALLOCATE IDB 
BA 1 Q MOVW  =saR1, } Bu ROE CR SET SIZE OF IDB 
AA 9 4 MOVB agin 168, 1DB$B8_TYPE(R R25; AND STRUCTURE TYPE CODE 
CA 2: # ; 5 MOVL R CRESL INTD+VECSL_IDB Bea) ; SET IDB INTO CRB 
66 A691 F 38 CMPB = RPBS$B_DEVTYP(R6),- : BOOTING FROM CONSOLE BLOCK 
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R2 2 CBSE INTD2+VECSL 108 (RB); 
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RPBSL_CSRV 
IDBSL-CSR( 
#BTDSR_UDA, 
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IR(R6), 
R2) 
P(R6) 
RPBSL_CSRVIR 
a#BO0$GB_SYS 
DP 


(R6) 
TEMI 
1DBS (R2) 
a ROUBVEC CRG 
RPB 
See eTUE LTO 
@ADPSL VECTOR(RZ)ER 
CRBSL_INTD+2(R8) , ( 
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; a: aaa DEVICE? 


YES, get ADDRESS OF VECTOR IN SCB 
SET" AD ST VECTOR 
SET ADD 4 1N a VECTOR 
STORE PUSHR #°M<RO...R5> 
: JMP a# IN 2ND INT. DISPATCH 
STORE ADDRESS OF IDB IN CRB 
TORE IPR NUMBER OF CONSOLE INTERFACE 
EGISTER AS DEVICE CSR ADDRESS 


SAVE BOOT DEVICE CSR etl 

o ge DISPATCH BLO 

LOW ORDER erts vee ORIGINAL “RO TELLS 
BOOT DEVICE T 

IF ane" BOOTING. FROM A UDA BRANCH 


A 
a 4 VIRTUAL ADDRESS OF UDA PORT CSR 
TO LOW ORDER LONGWORD OF SYSTEMID 


; POINT IDB TO ADP 
; GET USER SPECIFIED VECTOR 
; BRANCH IF V 


DDRES Vv 
: SET ADDR OF INTERRUPT VECTOR 
BACK TWO BYTES TO PUSHR, +1 TO 


; RETURN 
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: -SBTTL EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
FUNCTIONAL DESCRIPTION: 
bad da TIMWAIT initializes EXESGL_TENUSEC and EXE SEL _UBDELAY. ells used 
n the Eime-wait macros, The first data cell, EXESGL_TENUSEC, is the number 
of times the follow ng Loop will be executed in ten u-seconds. This is 
done once here to calibrate the loop instead of reading the processor clock. 
The resulting number is used in the system macros TIMEWAIT and TIMEDWAIT. 
The first gree is to initialize EXESGL_UBDELAY. If the bit test instruction 
in the TIMEWAIT macro is executed tee rapidly in a loop, it can saturate the 
Unibus. ti hes UBDELAY is used to introduce a 3 microsecond delay loop into 
the TIMEWAIT bit test Loop. 
This routine is called only once, from INIT. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


be pir | processor clock. 
Interval timers. 


OUTPUT PARAMETERS: 
RO - Destroyed. 
IMPLICIT OUTPUTS: 


EXESGL_TENUSEC - set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 10 micro-seconds. 


EXESGL_UBDELAY = set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 3 micro-seconds in the unibus delay 
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loop. 
EXESINI_TIMWAIT:: : Initialize time-wait data cells 
-ENABLE LSB 
19 00 ODA MTPR #0, #PR750$_NICR : Initialize next interval count register. 


DOO DODD G9 G9 C0 SII SDD DEDEDE DDD DP DET EE PPE EE ht 


MOVL #20000 ,-(SP) # of times to execute timed loop. 
MTPR #*X11,#PRS_ICCS ; Start clock, no interrupts. 


; # * * start of loop te time * * * 
10$:  SOBGTR (SP),10$ 
3 * * t end of loop to time * * * 


7E stati | nd of 44 


FD 6E =F SS ; Delay loop. 
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INLADP750 = ADAPTER INITIALIZATION FOR VAX 1 $50 16-SEP-1984 246: AX/VMS Macro V04-00 Pa 
the 2 EXESINI TIMWALT = COMPUTE CORRECT TIMEWA 11-S eats 90:58:93 SYSLOA.SRCJINIADP.MAR; 3 - Att 
50 1A 0B off 13 MFPR #PR750$_ICR,RO ; Read total time to execute loop. 
1 388 
18 98 DA 1 § MTPR op gens Accs ; Shut off clock. 
00000000 ' GF ener +4 C7 4 DIVL3 RO,#6000 ,G*EXESGL_UBDELAY; Calculate number of times through 
00000000'GF 06 ! INCL G*EXESGL_UBDELAY ; loop to delay 3 microseconds. 
1 
19 00 ODA ! MTPR #0, #PR750$_NICR ; Initialize next interval count register. 
13 $503 
50  00004E20 8F DO 19 6 MOVL #20000,R0 ; Number of times to execute test loop 
6€ 00000000'GF 00 9 4 MOVL G*EXESGL_UBDELAY, (SP) ; Get delay loop iteration count. 
18 11° ODA 3 : $3 MTPR #°X11,#PRS$_ICCS : Start clock, no interrupts 
S2A 39 » eee Start of Looe 8 time 
00000538"EF 8000 8F B83 O52A 51 20S: BITW #*x8000,40$ ; Random BITx instruction to time 
- oe 5 ; 26 BNEQ 40$ 3; Random conditional branch instruction 
FD of F 5 53 30$: SOBGTR (SP),30$ ; Delay 3 microseconds. 
EF 50 F5 0538 2254 40$: SoOBGTR RO,208 : Loop 
8 4 2? ; ***e End of loop to time 
8 8 é9 
50 1A DB 03 og MFPR #PR750$_ICR,RO ; Read total time to execute loop. 
53E 68 
18 00 ODA 5 . 1 MTPR #0,#PRS$_ICCS 3; Shut clock off 
43 D5 054 7 TSTL + ; Pop delay loop index off stack. 
00000000'GF 00030D40 8F C7 0543 74 DIVL3 RO,#200000,G*EXESGL_TENUSEC ; Calculate number of times to 
00000000'GF D6 0335 £3 INCL  G*EXESGL_TENUSEC ; execute the Loop to kill 10 u-secs. 
5 89 
05 bage 90 RSB ; Return 
0556 91 -DISABLE LSB 


INIADP750 = ADAPTER INITIALIZATION FOR VAX 11/350 1 =SER- AX/VMS Macro v04-00 Page 34 I) 
v04=002 EXESINIT TODR - SET SYSTEM TIME TO COR 11- -188¢ 90: 38: % YeYSLOR. SRCJINIADP.. MAR; 3 9° 16) v¢ 
99 -SBTTL EXESINIT_TODR = SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 
? : FUNCTIONAL DESCRIPTION: 
i : EXESINIT_TODR SOLICITS THE CORRECT TIME FROM THE OPERATOR IF NECESSARY, 
4: CONVERTS” THE oft CII] RESPONSE TO BINARY FORMAT AND CALLS AN INTERNAL 
5; ENTRY POINT OF THE SSETIME SYSTEM SERVICE 0's SET THE NEW SYSTEM TIME 
: : IN MEMORY U1 eHout MODIFYING THE CONTENTS OF THE SYSTEM DISK. 
§ : IF THE TIME WOULD NORMALLY BE SOLICITED FROM AN OPERATOR, BECAUSE 
5 ; THE H xine ARE TIME OF YEAR CLOCK I$ ZERO, THEN THE SYSGEN PARAMETER 
3 10 : “"TRWA S CHECKED. IF IT IS ZERO, THEN IT IS ASSUMED THAT NO 
11; OPERA a is PRESENT AND THE SYSTEM {[S BOOTED USING THE LAST TIME 
55 1 : RECO ADED IN THE SYSTEM IMAGE. IF THE PARAMETER IS NON ZERO THEN 
336 13; THAT TIME IS USED AS THE MAXIMUM TIME TO WAIT BEFOR ASSUMING THAT 
5 14: THERE IS NO OPERATOR AND BOOTING ANY WAY. IF THE PARAMETER IS 
3338 15 : NEGATIVE, THE SYSTEM WILL WAIT FOREVER. 
0336 2 ; THIS ROUTINE IS CALLED ONLY ONCE, FROM SYSINIT OR STASYSGEN. 
0556 2319 : INPUT PARAMETERS: 
0596 0; 
556 1; NONE 
Be2e § 3 
220 ? 3 IMPLICIT INPUTS: 
0336 3 : TIME-OF-DAY PROCESSOR CLOCK. 
0536 7 : OUTPUT PARAMETERS: 
556 § : RO,R1 = DESTROYED 
556 0; 
336 1 : IMPLICIT OUTPUTS: 
556 5 ; EXESGQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 
0556 34 ; 17-NOV-1858 00:00:00. 
556 3 
228 $339 7 
556 8 3 
220 i} 3 Stack storage offsets: 
0000000 0556 2341 TTCHAN = “x00 : CHANNEL FOR TERMINAL (LONGWORD) 
0 4 336 4¢ TTNAME = *X04 : STRING DESCRIPTOR FOR OPERATOR'S TERM 
$00 $e 5 43 TMPDESC = *x0C : TEMPORY STRING DESCRIPTOR (QUADWORD) 
SooosbIe Osee $8e8 LINGUE = “RIC {INPUT LINE BUFFER <3 LONGuORDS) 
= a 
80000 14 0556 46 LINBUFSIZ = *X14 : (LENGTH OF LINE BUFFER IN BYTES) 
4 : 
: : PURE DATA 
TERM _NAMADR: 
30 41 50 4F é i ’ sASCII \OPA 0\ : DEVICE NAME FOR OPERATOR'S TERMINAL 
000000 4 BA 3 TERM_NAMSIZ = TERM_NAMADR 
74 61 64 20 64 69 6C 61 76 6f $ 9° A 4 TIMERR *ASCIC” \ingettae dore/ttac\ : 
65 6D 69 F &6 
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BYTE 


3386 TIMEPROMPT : -e 
-ASCII Cree O>/PLEASE ENTER DATE AND TIME (DD-MMM-YYYY HH:MM) / 


SUSU 
PPrPrrr OOD OOu 
OOOCCSCOS -MNOTOOyY 1 


0 58 NPROMPT=.-TIMEPROMPT=1 
0 
é EXESINIT_TODR: : ; SET CORRECT TIME 
“ENABLE LSB 
77C 8F DA 6 PUSHR  #*M<R2,R3,R4,R5,R6,RB.RI,R10> ; SAVE REGISTERS 
— 30 C3 Ad 4 SUBL  #4*12,§P i SCRA atch H STORA 
6 5E 00 O5A7 2365 MOVL PLR : SAVE ADDRESS OF SCRATCH STORAGE 
4 A6 04 9A O5AA 66 MOVZBL #TERR NAMSIZ TINAME (R6) SET SIZE OF OPERATOR'S TERM NAME AND 
08 AG FFAG cr 9E OSAE 236 MOVAB ERM_NAMADR, TTNAME+4 (R iy PIC ADDRESS INTO TERM NAME DESC 
1¢ 00000000'GF 060° € 0584 68 BBS SA PEXESV. RETTIMES G*EXESGL “FLAGS, RFADTIME ; BR TO SOLICIT TIME 
eee $374 
50 18 0B pBC 26 MFPR  #PR750$_TODR,RO : GET TIME OF DAY CLOCK VALUE 
eer 30) 
00000000'GF 50 C3 O5BF Hh SUBL3 RO, G*EXESGL_TODR,R9 : GET TOD DELTA TIME (10 MS UNITS) 
09 1B O5c7 2389 BLEGU + BRANCH IF TIME IS LATER 
00830600 8F 59 01 05€9 2390 CMPL = RO #24%60%60*100 : CHECK FOR SETBACK OF ONE DAY 
06 1E 05D 91 BGEQU READT : MORE, MUST SOLICIT TIME 
14 A6 7 0302 36 5$: CLRQ INTIME CR) : NULL ARGUMENT FOR EXESSETIME_INT 
00c7— 31 5p3 3 BRW t RETURN TO CALLER 
508 39 READTIME: : SOLICIT TIME 
59 bs 5p8 2400 CLRL = R9 : CLEAR A FLAG 
58 00000000'GF 32 O5DA 2401 CVTWL  G*°SGNSGW_TPWAIT,RB : PICK UP TIMEOUT WALT INTERVAL 
16 14 0561 24 : BGTR 8% : POSITIVE, WAIT THAT PERIOD ONCE 
0D 19 5 i Rr BLSS 7$ + NEGATIVE IS WAIT MP OREVER 
00000000'GF 01 C1 BES its ; ADDL3 #1,G*EXE$GL_TODR,RO ; ZERO, SET TIME-9F-DAY CLOCK TO 
SED 241 
18 50 DA SED ig MTPR = RO, #PR750$_TODR : KNOWN VALUE + 10 MSEC AND FINISH UP 
ne ip 
EO 11 O5F0 24 BRB 5$ ; 
us 
58 14 DO O5F2 2434 78: MOVL  #20,R8 ; STARTING WAIT 
59 6 aE 435 NCL sR i NEGATIVE, = WAIT FOREVER 
F? 26 $ 8$: ASSIGN_S TTNAME (R6) , TTCHANCR ) ; AND ASSIGN TO INPUT DEVICE 
pd 50 £9 0605 24 BLBC 6 RROR = FALL BACK TO STORED TIME 
52 £F60 cf E $08 4 : 10S: movie u*fIMEPROMPT, R2 i GET p tenet’ OF PROMPT STRING 
e10 440 $alow $ #0 w* fT CHAN ROMP AND READ TIME 
10 244 #<fos_ READPRORPT !10SM_ mulch Met, TIMED! 1O$M_CVTLOW>,- 


INIADP750 R_ INITIALIZATION FOR VAX 11/750 16=SEP- 14 AX/VMS Macro Vv04-00 Page 36 IN 
mart EXESINI _TODR = SET SYSTEM TIME TO COR 19-865 SEP- 1382 9°: 38: 9} SYSLOA. SRCJINIADP.. MAR; 3 ° (33) vo 
10 244 TMPDESC(R6),,.- : 1/0 STATUS BLOCK , NO AST OR PARAM 
10 344 LINBUF(R6) ,ALINBUFSIZ,- ; BUFFER ADDRESS AND SIZE 
10 2644 RB, #0, : TIME OUT 
445 R R : PROMPT ADDRESS AND SIZE 
AD 50 59 446 BLBC + ERROR = FALL BACK TO STORED TIME 
54 oc Ab 6 44 MOV [apse R4 : GET COMPLETION STATUS 
b 2 E 6 C 448 BLBS : CONTINUE IF SUCCESSFUL READ 
A f F 244 BLBC $ + FAILED ON ONE-TIME READ, RETURN 
58 01 ABS E he 450 MOVAB Re )CR8BI,RB + (2 * TIMEOUT) + 1 
8 58 3C 064 431 MOVZWL RB AR RB + BOUND TIMEOUT 
BC 11 064A 24 : BRB 10$ : TRY AGAIN FOR TIME 
4C 43 20S: SOMETHING WAS INPUT 
OC AG OE AG 3¢ 4¢ 454 MOVZWL TMPDESC+2(RG) TMPDESC(R6S ; FORM DESCRIPTOR FOR BUFFER 
10 A6 «61C AB O9E 63 455 MOVAB _LINBUF(R6), TMPDESC+4(R6) ; SET DESCRIPTOR ADDRESS 
6 : 496 SBINTIM_S TMPDESC(R6),INTIME(R6) : CONVERT TO BINARY TIME 
05 50 €9 0663 245 BLBC ~RO,89$ : INVALID TIME 
18 A6 ODS 666 438 TSTL  INTIME+4(R6) : CHECK FOR DELTA TIME 
2A «14 «(0669 «245 BGTR 100$ + BRANCH IF NOT = OK 
66B 2460 89S: t INVALID TIME VALUE INPUT 
52 FEEB CF OSE 66 461 MOVAB W*TIMERR,R2 : ADDRESS OF ERROR MESSAGE 
53 82) O9As(06 46¢ MOVZBL (R2)+,R3 : GET STRING LEN 
0673 246 $Q10W_S #0, TTCHAN(R6) ,- : GIVE ERROR MESSAGE 
067 464 #10$_WRITEVBLK,- : 
673 2465 - + NO 1/0 STATUS AST OR AST PARAM 
67 466 (R83), R3 y= ; BUFFER ADDRESS NGTH 
673 246 #0 ye : SET CAR E CONTROL TO CR/LF 
FF73. 31 69 468 and BRW 10$ : AND TRY NASH 
695 £3 SDASSGN_S TTCHAN(R6) + DE-ASSIGN TERMINAL CHANNEL 
14 A6 -7F «(069F 24717 200$:  PUSHAQ “INTIME(R6) : SET NEW SYSTEM TIM 
00000000'GF 01 FB 06A Are CALLS #1,G*EXESSETI USE TODR cLock T0 SET SYSTEM TIME 
00000000'GF  00000000'°GF 7D 06A9 247 MOVG Gig XESGQ_ TBDCBASES NG*EXESGO. eBOOT TIME VE BOOT TIME 
5 0 CO 06B4 2474 ADDL = #1 SP tle AN E icRaTeH QO ORAGE 
077¢ BF 46BA «(0687 «(2475 POPR oacrS R3,R4,R5,R6,RB,RI-RIO> ; OE STORE REGISTERS 
bees S479 
Rose $78 ; Fall through into the deallocate logic. 
06BB 2480 : RSB ; *** This goes in if another piece of 
688 $8) ; eee initialization code is oqded that 
68B 24 ¢ ; *** is executed after EXESINI_ TIMUATT. 
688 43 .DISABLE LSB 
6BB 2484 
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SET SYSTEM TIME TO C “3 
DEAL_INIT_CODE: ; 


It i 
routine to ma 


I 
0 


itself and all 

must be disconnected, e.g., 

NOTE: 
to thi 
end of the module! 


- ENABLE 38 
MOVQ Re, 


= (SP) : 


and reset them to point to E 
W*SYSLSBEGIN 


-DISABLE LSB 
~END 
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RO H 
#<STAY HEADER-SYSL SBEGIN>, 
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SYSLOA.SRCJINIADP.MAR; 3 
DEALLOCATE THE INITIALIZATION CODE 


the we! of the last-executed, loadable initialization 
e other such routines disappear, i.e., 
release the space they eg | to non-page tor 
e made to point to the symbol, EXESLOAD_ERROR. 


This means that new initialization routines should be added 
s module in a particular order, not necessarily at the 


pool. Each routine's vec 


Save some registers 


First find the vectors that point se rnese initialization routines 


compute bounds of releasable piece: 
act 1 ; starting and ending addresses. 


MOVAB G*EXESAL_LOAVE ; Get starting address of vectors. 
MOVAB G“*EXESLOAD ERROR RS ; Get end of vectors. 
10$: CMP (R2) ,#*X9FT ; Is this JMP av ? 
BEQL ; Br if yes, skip past it. 
CMPB (R2) ,#*x80 i; Is this a system space address 
BNEQ 40$ ; Br if no, assume it's a HALT instr. 
CMPL Re) RO ; Is address before the releasable 
BLSSU 20 ; piece of memory? 6r on yes. 
CMP (R2),R1 :; Is address after the releasable 
BGTRU 20% :; piece of memory? Br on yes. 
MOVAB Fe em, Ses ; Reset this vector. 
gos: ADDL #2,R ; Point past this vector. 
O$: INCL R ; Come here to point past JMP af. 
40$: INCL ® ; Come here to point past HALT. 
CMPL R2,R3 ; Past the end of the vectors? 
BLSSU 108 ; Keep searching vectors. 
; Now release the memory to non-paged pool. 
MOVAB W*SYSLSBEGIN,RO 3; Point to start of module 
MOVZWL #<STAY_HEADER-SYSLSBEGINS,R1 ; Length to vaporize 
BRW 50$ ; Br to code that is not released. 
-PSECT SSSINIT__END, PAGE ; ‘PAGE’ SINCE 16-BYTE ALIGN IS NOT 
STAY_HEADER: 
LONG 0 
“WORD <SYSLSEND-STAY_HEADER> 
BYTE DYNSC_LOADCODE 
BYTE 
50$: $B Ger FESDEANONPODSIZ ; Just the smile on the Chesire cat 
MOVQ (SP)+,R ; Restore 
RSB ; Return. 
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Symbol table : SYSLOA. SRC 
1DBSW_S12Z = 8 NOTS_MPM = 4 
IDBSU-UNITS = O00doobe NDTS-HPR = 8000006 
INISACLOC CRB teeeeeee =X 08 NDT malas = 4 
INISALONORPA eeereeee =X 9 NDT$_MPM = 4 
INISCIADP 341 R 9 NDT$_SCORMEM s 1 
INISCONSOLE 43F RG 9 DT$_UB = 3 
INISDRADP 3 f R 9 NOT$_UB s 
INISIOMAP RG 9 NDT$_UB = A 
INI$KDZ11 8 43E R 9 NOTS-UB = 
INI SMBADP 356 R 9 NEXUSDESC a 08 
INI SMPMADP eeeeeeee =X 6 NOSPT 4R 8 
INI SUBADP 1C4 R 9 NPROMPT 3 
INI SUBSPACE 1A7 R 9 NUMUBAVEC $ 
INIT ROUTINES 0000 R 6 NUM_PAGES 0 8 oe 
INTIFE = 00000014 NXT_NEXUS 4 $8 R 9 
10SM_CVTLOW traereeee x 09 PA = F4 
10$M_ PURGE eeeeeeee =X |= 09 PRS_CSTD a O06 1F 
10$M- TIMED eeeeeeee =X 3 PR$_ICCS = 00000 i 
10$_READPROMPT teeeenee =X 9 PRS 310178730 = 44 0 
10$ WRI TEVBLK eeeeeeee =X V) PR$_SID_TYP7 = 00000 be 
10750$AL_IOBASE = OOF 20000 PR$_SID_TYP780 = 00000001 
10750$AL_PERNEX = eats 444 PR$_SID_TYP790 = 00000004 
10750$AL_UBOSP = 00F C0000 PR$_SID_TYP8NN = 44: 
LF = 0000000A PR$_SID_TYP8SS = 0000000 
LINBUF = eae Sf PR$_SID-TYPUV1 = 449 H 
LINBUFS1Z = 00000014 PRS TBIS = 0000003A 
MAP _NEXUS BR On OY os R 09 PR750$_ICR = QQO00001A 
MAP_PAGES 0000173 R 09 PR750$_NICR = 00000019 
MAXNEXUS = 00000040 PR750$_TODR = 00000018 
MBASINITIAL aeeeeree = X 09 PTESC_Rw = 10000000 
MBASINT eeeeeeer =X 09 PTESM-VALID = 80000000 

T 0000000D R 08 READTIME Sh Fb R 09 
MCHK 00000001 RPB$B_DEVTYP = ppgee 
MCHKSM_NEXM = 00000004 RPBSL_ADPPHY = 449 C 
MMGSGL_ SBI CONF eeereeee =X 09 RPBSL_ADPVIR = 44 8 
MMGSGL~ SPTBASE eeeeeeeer =X 09 RPB$L_BOOTR1 = 00 B38 
MMGSSVAPTECHK reeeeres 09 RPBSL_CSRPHY = 00000054 
NDT$_BU = 800001 ¢ RPBSL_CSRVIR = 444 FY 
NDT$_CI = 000000 RPB$W_ROUBVEC = OO1E 
NDT$_DR32 = 000000 4 SBI CORF 000 ore R 08 
NDT$_KD211 = 800001 SBI _BUS_CODE = 00000000 

7 = 00 SBI-CPU = 4 000 

NDTS_MEM1664NI1 = 0000001 SBI_CSR_LEN = 0000 44 
NDT$_MEM161 = 1 SBI-LIKE = 00000001 
NOT$_MERI6NI = 10 SGNSGW_TPWAIT aeeeeeee = X 09 
NOTS_MEM256E IL = 71 STAY HEADER 00090000 R OA 
NDTS_MEM256E 1U = 00 73 Sid BOs CODE 0000005 R 8 
NDT$_MEM2561 = 74 SYSSASSIGN ateeeree GX 9 
NDTS$_MEM gent = 7 SYSSBINTIM aeeeeeee GX 9 
NDTS_MEM256NIU = 7 SYSSDASSG eereeeee GX 9 
NOT$_MEMG I = SYS$Q10W eeereeee GX 9 
NOTS$_MEM4NI = 8 SYSLSBEGIN LLL aa | 9 
NDOTS$_MEMO4E IL = 6 SYSLSEND aeeeeree =X A 
NOT$_MEMO4EIU = 68 TERM_NAMADR 556 R t) 
NDTS_MEM64 1 = of TERM_NAMSIZ = 4 
NDT$_MEMO4NIL 2 6 TEST NEXUS 1R 3 
NDT$_MEMO4NIU = 6A TIMEPROMPT 6C R 9 
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Symbol table 19-SEb= 1384 90:58:9) SYSLOA.SRCJINIADP.MAR; 3 . Rin 
TIMERR SAR 09 
TMPDESC = 
TTCHAN = 
TTNAME = 4 
UAS$W_IP_CR1 = 1464 
UBASIAITTAL eeeeeeee § YX 8 
UBASINTO eeeeeeee K 9 
UBASL_ MAP = 00000800 
UBASURE XINT eeereeee = § x 98 
UBA1INT 8 1E R 9 
UCBSW_UNIT = 54 
VASM_ SYSTEM 2 8 0 
VECSC_ADP 2 4 
VECSL_10B = 33 ope 
VECSL_INITIAL = 0000000C¢ 
tease eeeeeeceee Ch a 
! Psect synopsis ! 
¢eoeeeeeecean wee oon + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 <( 0.) 00 ¢ OO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000004 ( 4.) Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAO 00000074 ( 116.) 8 ( §°3 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA1 445546444 ( a 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA QOOOO0SA ( 58.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA 00000000 ( 0.) O05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSINITSDATAG 00000074 (¢ 116.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 
SSSINITSDATAS 00000 90 ( 0.) O07 ¢ 7.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA QOOOO33F ( 831.) 08 ¢ 3° NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
SSSINITSCODE 00000711 ¢ 1809.) 09 ¢ -) NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC QUAD 
SSSINIT__END 00000016 ( 22.) OA ( 10.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
dere e ero n en scene ween ee ees + 
! Performance indicators ! 
$e rnc en men enw comm eee eee + 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 0:00:00.04 0:00:02.0 
Command processing 109 0: 89-3! 0:00:03.4 
Pass 531 :00:13.91 :00:52.73 
Symbol table sort 9 :00:01.7 :00:07. 
Pass 2 29 :00:04.1 :00:16. 
Symbol table output 29 0:00:00.1 :00:00.4 
Psect synopsis output 3 :00:00.04 8: 700.04 
Cross-reference output :00: 00 :00: +08 
Assembler run totals 994 :00:20.4 0:01:22. 


The working set pase was 2100 pages. 

139241 bytes (272 pages) of virtual memory were used to buffer the intermediate goge. 

There were 90 pages of symbol table space as tqeates to hold 1656 non-local ane 37 local symbols. 
2546 source Lines were read in Pass 1, produc ing object records in Pass 2. 

47 pages of virtual memory were used to define 45 macros. 


SEP=1984 00:46:01 YAX/VMS Macro V06-00 Page 41 IN 
wSEP=198¢ 10:28:18 LSYSLOA.SRESINTADPORAR:3 29° cf}, vo 
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VAX-11 Macro Run Statistics 1 
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! Macro Library statistics ! 


trom see eee te eee eon em eee et 


Macro Library name Macros defined 
ett $ 8:CSYS.OBJJLIB.MLB; 1 23 
55$0UA28:(SYSLIBJSTARLET.MLB;2 14 
TOTAcs (all Libraries) 37 


1808 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$: INIADP750/0BJ=0BJ$: INIADP750 MSRC$:CPUSW750/UPDATE=(ENH$: CPUSW750) +MSRC$: INIADP/UPDATE=(ENH$: INIADP) +EXECML$/LIB 
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